﻿Public Class modificarRMA

    Private Sub modificarRMA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click

        Dim rst As DialogResult

        rst = MessageBox.Show("¿Desea guardar los cambios?", "Confirme", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)

        If rst = Windows.Forms.DialogResult.Yes Then
            'almaceno los cambios y cierro formulario
            Me.Close()
        ElseIf rst = Windows.Forms.DialogResult.No Then
            'no guardo nada y cierro formulario
            Me.Close()
        End If
    End Sub

    Private Sub btnCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancelar.Click

        'no guardo nada y cierro formulario
        Me.Close()
    End Sub

    Private Sub txtNroRMA_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtNroRMA.KeyPress
        validarString(e)
    End Sub

End Class